GetKey (nSecs) --> nInkeyCode:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
It replaces the clipper function InKey(), but when waiting for keypressing
is the time displayed (if enabled by SetShowTime()), and the text set by
ShowText() function is displayed (if enabled by SetShowText()).

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
nSecs: number of seconds to wait for a keypressing if 0 - unlimited wait,
       if nil - no waiting.

Return value:
~~~~~~~~~~~~~
nInkeyCode: keypressed code, if no key pressed returns 0

Source code is in file  Object3.prg